home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol6n14.arc / INSTALL.BAS < prev    next >
BASIC Source File  |  1987-04-30  |  3KB  |  52 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE INSTALL.COM
  2. 110 OPEN "INSTALL.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  27
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 241    IF I <> 1 GOTO 250
  17. 242       LSET A$ = CHR$(0)
  18. 243       FOR K = 1 TO 1152
  19. 244          PUT #1
  20. 245       NEXT K
  21. 250 NEXT I
  22. 260 CLOSE
  23. 270 IF CHECKSUM = 19990 THEN PRINT "Successful Completion!" : END
  24. 280 PRINT "COM file is not valid!" : END
  25. 290 DATA    233,   224,     4,     0,     0,     0,     0,     0,   461
  26. 300 DATA     0,     0,    13,    10,    78,   111,    32,   114,   358
  27. 310 DATA   111,   111,   109,    32,   102,   111,   114,    32,   722
  28. 320 DATA   109,   111,   114,   101,    13,    10,    36,    67,   561
  29. 330 DATA   111,   112,   121,   114,   105,   103,   104,   116,   886
  30. 340 DATA    32,    49,    57,    56,    55,    32,    90,   105,   476
  31. 350 DATA   102,   102,    45,    68,    97,   118,   105,   115,   752
  32. 360 DATA    32,    80,   117,    98,   108,   105,   115,   104,   759
  33. 370 DATA   105,   110,   103,    32,    67,   111,    46,    74,   648
  34. 380 DATA   101,   102,   102,    32,    80,   114,   111,   115,   757
  35. 390 DATA   105,   115,   101,   251,   128,   252,    68,   116,  1136
  36. 400 DATA     5,    46,   255,    46,   134,     5,    14,     7,   512
  37. 410 DATA   254,   207,   207,   180,    68,    50,   255,   205,  1426
  38. 420 DATA    26,   128,   255,   255,   116,     5,   198,     6,   989
  39. 430 DATA   133,     5,     1,   191,     3,     1,    38,   131,   503
  40. 440 DATA    61,    32,   114,     9,   180,     9,   141,    22,   568
  41. 450 DATA   138,     5,   205,    33,   195,    38,   139,     5,   758
  42. 460 DATA    38,   255,     5,   177,     2,   211,   224,     5,   917
  43. 470 DATA     5,     1,   139,   248,    38,   140,    13,    46,   630
  44. 480 DATA   161,    44,     0,    38,   137,    69,     2,    30,   481
  45. 490 DATA    51,   192,   142,   216,    51,   246,    14,     7,   919
  46. 500 DATA   141,    62,   133,     1,   185,     0,     2,   252,   776
  47. 510 DATA   250,   243,   165,   251,    31,   128,    62,   133,  1263
  48. 520 DATA     5,     0,   116,    21,   184,    26,    53,   205,   610
  49. 530 DATA    33,   137,    30,   134,     5,   140,     6,   136,   621
  50. 540 DATA     5,   180,    37,   141,    22,   211,     5,   205,   806
  51. 550 DATA    33,   186,   227,     5,   205,    39,     0,     0,   695
  52.